home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / text / xes.lha / XES / REXX / Close.xdme < prev    next >
Text File  |  1995-08-01  |  284b  |  12 lines
  1. /* $VER: Close.xdme 1.0 (01 Aug 1995) */
  2. /* Copyright © 1995 Fergus Duniho */
  3. /* Use this when a RexxARP requester quits without going away. */
  4.  
  5. ADDRESS AREXX '"Call CreateHost CPORT, NOTPORT"'
  6. DO UNTIL ShowList(P,CPORT)
  7.     CALL Delay(10)
  8. END
  9.  
  10. CALL CloseWindow CPORT
  11. CALL Quit CPORT
  12.